Make font-lock-refontify try even harder to refontify

* lisp/font-lock.el (font-lock-refontify): Make this command work
even after switching global font lock mode on and then off again.

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 971e37309e90bf7fd79c12594c1e6a1832886755..2c91586c99dddbfb9469d46526eda6dd89f45b1c 100644 (file)
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1107,7 +1107,9 @@ locking for a mode, and is not meant to be called from lisp functions."
   (interactive)
   (declare (interactive-only t))
   (setq font-lock-major-mode nil)
-  (font-lock-ensure))
+  (font-lock-set-defaults)
+  (save-excursion
+    (font-lock-fontify-region (point-min) (point-max))))
 
 (defun font-lock-ensure (&optional beg end)
   "Make sure the region BEG...END has been fontified.